home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / lang / amigatalk.lha / system / ParallelDevice.st < prev    next >
Text File  |  2002-03-15  |  5KB  |  154 lines
  1. " ----------------------------------------------------------------------"
  2. " ParallelDevice Class is derived from abstract Device Class.           "
  3.  
  4. "  WARNING:  You should know what you're doing to the Amiga OS before   "
  5. "            messing with this Class, or any other System Class!        " 
  6.  
  7. " This class is a Singleton Class.  In the future, this class will be   "
  8. " modified to allow more than one Parallel port to be open at a time    "
  9. " (for those of us fortunate enough to have more than one Parallel Port."
  10.  
  11. " NOTES
  12.  
  13.   newParms & parallelFlags can have any of the following values:
  14.  
  15.     2r00000010 PARF_EOFMODE  - check I/O against the TermChars array.
  16.     2r00000100 PARF_ACKMODE  - use ACK handshaking.
  17.     2r00001000 PARF_FASTMODE - Send out data as long as BUSY is low. 
  18.     2r00010000 PARF_SLOWMODE - For transfers to slow printers.
  19.     2r00100000 PARF_SHARED   - Allow sharing of the parallel device.    "
  20. ""
  21. " ALL singleton classes MUST contain the following:                     "
  22. "" 
  23. "   the methods:  isSingleton AND privateSetup     AND                  "
  24. "                 uniqueInstance Class instance variable.               "
  25. " ----------------------------------------------------------------------"
  26.  
  27. Class ParallelDevice :Device ! uniqueInstance flagDictionary !
  28. [
  29.    isSingleton
  30.      ^ true
  31. | 
  32.    status
  33.      "  The returned status has the following meaning:
  34.      *
  35.      *  BIT:  ACTIVE:  FUNCTION:
  36.      *
  37.      *  0      HIGH   Printer Busy toggle (offline).
  38.      *  1      HIGH   Paper out.
  39.      *  2      HIGH   Printer Select.
  40.      *  3      ----   Read = 0, Write = 1
  41.      *  4-7    ----   Reserved.
  42.      "
  43.       ^ <primitive 224 3>
  44. |
  45.    resetPort
  46.       ^ <primitive 224 4>
  47. |                  
  48.    flushPort
  49.       ^ <primitive 224 5>
  50. |                  
  51.    stopPort
  52.       ^ <primitive 224 6>
  53. |                  
  54.    startPort
  55.       ^ <primitive 224 7>
  56. |                  
  57.    setPortParametersTo: newParms
  58.       ^ <primitive 224 8 newParms>
  59. |                  
  60.    readThisMany: numChars
  61.       ^ <primitive 224 9 numChars>
  62. |
  63.    writeToPort: aString thisLong: numChars ! check !
  64.       check <- <primitive 224 10 numChars aString>.
  65.       
  66.       (check ~= numChars)
  67.          ifTrue: [ 'Parallel Port write error!' print]
  68. |                  
  69.    setTerminatorsTo: aString
  70.       "Only the first 4 characters of the string are used."
  71.       ^ <primitive 224 11 aString>
  72. |                  
  73.    setPortDirectionAtomic: rwFlag
  74.       " Not needed for reading & writing to the Parallel Port."
  75.       ^ <primitive 224 12 rwFlag>
  76. |                  
  77.    sendPortControlBits: newBits
  78.       " Only the 3 least-significant bits will be written to the hardware.
  79.         This is to prevent your code from interfering with the Serial
  80.         device.
  81.       "
  82.       ^ <primitive 224 13 newBits>
  83. |                  
  84.    readControlBitsMaskedBy: ctrlMask
  85.       " Only the 3 least-significant bits have any meaning 
  86.         for the Parallel Port.  Use ctrlMask of seven (7).
  87.       "
  88.       ^ <primitive 224 14 ctrlMask>
  89. |
  90.    open: parallelFlags ! check !
  91.    
  92.       check <- <primitive 224 1 parallelFlags>.
  93.  
  94.       (check ~= 0)
  95.          ifTrue: [ 'Error open Parallel device:' print.
  96.                    <primitive 224 2 check> print.
  97.                    ^ nil
  98.                  ].
  99.       ^ self
  100. |
  101.    close
  102.       <primitive 224 0>
  103. |
  104.    privateNew ! newinstance !
  105.      newinstance <- super new.
  106.  
  107.      ^ newinstance
  108. |
  109.    new
  110.      ^ self privateSetup
  111. |
  112.    privateInitializeDictionary
  113.      
  114.      flagDictionary at: #PARF_EOFMODE  put: 2r00000010. "check I/O against the TermChars array"
  115.      flagDictionary at: #PARF_ACKMODE  put: 2r00000100. " use ACK handshaking "
  116.      flagDictionary at: #PARF_FASTMODE put: 2r00001000. " Send out data as long as BUSY is low"
  117.      flagDictionary at: #PARF_SLOWMODE put: 2r00010000. " For transfers to slow printers"
  118.      
  119.      " Allow sharing of the parallel device.  This flag is required
  120.      * at all times:
  121.      "
  122.      flagDictionary at: #PARF_SHARED   put: 2r00100000. 
  123. |
  124.    getParFlag: aKey
  125.      ^ flagDictionary at: aKey
  126. |
  127.    privateSetup
  128.      (uniqueInstance isNil)
  129.        ifTrue: [uniqueInstance <- self privateNew.
  130.                 flagDictionary <- Dictionary new.
  131.                 
  132.                 self privateInitializeDictionary.
  133.                ].
  134.                
  135.      ^ self    "or ^ uniqueInstance??"
  136. |
  137.    current
  138.      ^ self privateSetup
  139. |
  140.    current: parallelFlags
  141.      (uniqueInstance isNil)
  142.         ifTrue: [ uniqueInstance <- self privateNew.
  143.                   flagDictionary <- Dictionary new.
  144.                 
  145.                   self privateInitializeDictionary.
  146.                   self open: parallelFlags
  147.                 ].
  148.       
  149.      ^ uniqueInstance
  150. |
  151.    new: parallelFlags
  152.      ^ (self current: parallelFlags)
  153. ]
  154.